home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / DU1541.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  96 lines
  1. 0 REM REM"[141][145] => DISK UTILITY <=[141] BY[141][156] JIM[141][158] BRANBERG[141] REV[144] 3/10/85 [141][141][159]
  2. 2 [139][194](828)[179][177]169[167][141]700
  3. 5 [151]53280,6:[151]53281,254:[143] => V1.2
  4. 10 [153]"LOAD                          POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS                          WAITSTOP";
  5. 11 [153]" STR$ISK (null)TILITY"
  6. 15 R$[178][199](13):[153][199](14)" 1. (null)CRATCH"R$" 2. (null)ENAME"R$" 3. (null)IEW
  7. 20 POKE198,.:PRINT" 4. [211]END [196][207][211] COMMAND"R$" 5. [196]ISK DIRECTORY"R$" 6. [198]ORMAT DISK
  8. 22 [153]" 7. (null)NSCRATCH"R$"SYS (null)RESS A NUMBER:
  9. 24 GETZ$:IFZ$=""GOTO24
  10. 25 Z=VAL(Z$):IFZ<1ORZ>7GOTO24
  11. 30 IFZ>3GOTO55
  12. 50 INPUT"[145] [198]ILE NAME      [157][157][157][157][157]";F$
  13. 55 OPEN15,8,15
  14. 60 ONVAL(Z$)GOTO130,135,80,65,155,260,400
  15. 65 PRINT"[147][144] E[146]RROR CHANNEL[141][141] I[146]NITIALIZE[141][141] V[146]ALIDATE
  16. 66 [133]" RIGHT$NPUT STR$(null)(null) COMMAND ";F$:[139]F$[178]""[137]560
  17. 67 F$[178][200](F$,1):[139]F$[178]"E"[137]115
  18. 70 [152]15,F$:[141]115:[137]560
  19. 80 S[178]919:[129]A[178]1[164][195](F$):B$[178][202](F$,A,1):[151]S,[198](B$):S[178]S[170]1:[130]
  20. 87 [151]829,[195](F$):[151]53280,.:[151]53281,.
  21. 90 [153]"LOAD(null)RESS <(null)(null)ATNLENVAL> TO PAUSE,";:[141]605:[141]115:[158]828
  22. 100 [153]:[133]"HIT RETURNWAITSTOP";Q$:[137]560
  23. 115 [132]15,A$,B$,C$,D$
  24. 120 [139][197](A$)[177].[176]F$[178]"E"[167][153]" "A$" "B$," "C$,D$:[129]T[178]1[164]3000:[130]:[137]560
  25. 125 [142]
  26. 130 [152]15,"S0:"[170]F$:[141]115:[137]560
  27. 135 [133]" (null)EW NAME ";NF$
  28. 140 [152]15,"R0:"[170]NF$[170]"="[170]F$:[141]115:[137]560
  29. 155 Z%[178].:F[178].:T$(5)[178]"LOK":[152]15,"I0"
  30. 156 [159]1,8,2,"$":[129]X[178]1[164]141:[161]#1,Q$:[130]:T$(.)[178]"DEL":T$(1)[178]"SEQ":T$(2)[178]"PRG"
  31. 160 T$(3)[178]"USR":T$(4)[178]"REL":J[178]17:[141]215:N$[178]E$:J[178]2:[141]215:I$[178]E$:[161]#1,Q$:J[178]2
  32. 165 [141]215:O$[178]E$:[129]L[178]1[164]88:[161]#1,Q$:[130]
  33. 170 [153][199](147)"STOPDISK NAME:WAIT"N$,"ID:WAIT"I$,"OS:WAIT"O$:[141]245
  34. 180 [129]P[178]1[164]8:[161]#1,T$,Q$,Q$:[139]T$[178]""[167]T$[178][199](128)
  35. 185 J[178]15:[141]215:N$[178]E$:[161]#1,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,L$,H$
  36. 190 L[178][198](L$[170][199](.))[170]256[172][198](H$[170][199](.))
  37. 195 [139]ST [175]66[167]FR%[178]664[171]F%:[137]600
  38. 204 F1$[178]" "[170][196](F):F$[178][201](F1$,3)
  39. 205 [139][198](T$)[177]192[167]T$[178][199](133)
  40. 206 [153]F$L;[163]8)T$([198](T$)[171]128):[153][163]13)"ON"N$:[139]P[179]8[167][161]#1,Q$,Q$
  41. 207 [139][198](T$)[177]128[167]F%[178]F%[170]L
  42. 208 Z%[178]Z%[170]1:[139]Z%[178]18[167][151]198,.:[153][163]13)" HIT ANY KEY ":[146]198,1:Z%[178].:[153]"LOAD":[141]604
  43. 210 F[178]F[170]1:[130]:[137]180
  44. 215 E$[178]"":[129]L[178].[164]J:[161]#1,Q$
  45. 220 [139]Q$[179][177][199](96)[167][139]Q$[179][177][199](160)[167]E$[178]E$[170]Q$
  46. 230 [130]
  47. 235 P%[178][194](203):[139]P%[178]48[167][160]1:[137]560
  48. 240 [142]
  49. 245 [153]"STOP  #WAIT BLKWAIT TYPWAIT  NAMEWAIT":[142]
  50. 250 [153]"LOADSTOP LENATN(null)(null)RIGHT$(null)(null): (null)HIS OPTION WILL FORMAT YOUR"R$" DISK AND  ERASE WAIT";
  51. 251 [153]" ANYTHING THAT MAY
  52. 253 PRINT" ALREADY BE THERE.
  53. 255 [153]" LEFT$IT (null)VAL(null)(null)(null)(null) TO ABORT.":[142]
  54. 260 [141]250:[153]"ONONONONON VALNTER STR$RIGHT$(null)(null) NAME:":[133]"STOP ";IN$:[139]IN$[178]""[137]560
  55. 265 [153]" (null)NIQUE STR$RIGHT$(null)(null) RIGHT$.STR$.:   ":[133]"STOP ";ID$:[139][195](ID$)[179]2[167][153]"ONONONONON":[137]265
  56. 270 [152]15,"N0:"[170]IN$[170]","[170][200](ID$,2):[139]ST[179][177]0[167][141]115
  57. 275 [137]560
  58. 400 [153]"LOADSTOP (null)OU WILL NEED THE DIRECTORY # FOR THE"R$" FILE YOU WISH ";
  59. 402 [153]"TO UNSCRATCH."R$" (null)O FIND THIS INFO ";
  60. 405 [153]"RETURN TO THE MAIN"R$" MENU & USE OPTION 5 TO LIST ";
  61. 410 [153]"THE DISK"R$" DIRECTORY. (null)HE # WILL BE IN COLUMN"R$" ONE NEXT TO THE NAME ";
  62. 415 [153]"OF YOUR DELETED"R$" FILE."R$" (null)EMEMBER IT & RETURN TO THIS OPTION.":[141]255
  63. 420 [133]"STOP ASCILE # ";U$:[139]U$[178]""[137]560
  64. 425 U[178][197](U$):[139]U[179].[176]U[177]143[167]400
  65. 430 R[178][181](U[173]8)[170]1:BS[178](U[171]((R[171]1)[172]8))[170]1:[140]:[129]X[178]1[164]R:[135]S:[130]
  66. 451 [139]BS[178]8[167]BP[178]226
  67. 452 [139]BS[178]7[167]BP[178]194
  68. 453 [139]BS[178]6[167]BP[178]162
  69. 454 [139]BS[178]5[167]BP[178]130
  70. 455 [139]BS[178]4[167]BP[178]98
  71. 456 [139]BS[178]3[167]BP[178]66
  72. 457 [139]BS[178]2[167]BP[178]34
  73. 458 [139]BS[178]1[167]BP[178]2
  74. 500 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
  75. 510 [153]"LOAD  1. (null)EQUENTIAL"R$"  2. (null)ROGRAM"R$"  3. (null)SER"R$"  4. (null)ELATIVE
  76. 520 PRINT"  [215]HICH TYPE FILE ?
  77. 525 [161]A$:[139]A$[178]""[167]525
  78. 530 A[178][197](A$):[139]A[179]1[176]A[177]4[167]525
  79. 535 B[178]A[170]128:[152]15,"I":[159]8,8,8,"#":[152]15,"U1:"8;0;18;S
  80. 540 [152]15,"B-P:"8;BP:[152]8,[199](B);:[152]15,"U2:"8;0;18;S
  81. 550 [160]8
  82. 560 [160]15:[138]
  83. 600 [153]""FR%"BLOCKS FREE"R$" LEFT$IT F7WAIT TO CONTINUE":[146]203,3:[160]1:[137]560
  84. 604 [153]" (null)RESS";:[141]605:[141]245:[142]
  85. 605 [153]" '\' TO ABORT.WAIT":[142]
  86. 700 [129]X[178]1[164]18:[135]ML:[130]:[129]MM[178]828[164]918:[135]ML:[151]MM,ML:[130]:[142]
  87. 701 [131] 169,0,162,151,160,3,32,189,255,169
  88. 702 [131] 3,162,8,160,4,32,186,255,32,192
  89. 703 [131] 255,162,3,32,198,255,32,183,255,41
  90. 704 [131] 100,208,12,32,207,255,32,210,255,32
  91. 705 [131] 114,3,76,86,3,169,3,32,195,255
  92. 706 [131] 32,204,255,96,166,203,224,48,208,5
  93. 707 [131] 104,104,76,105,3,224,60,208,6,166
  94. 708 [131] 251,240,3,198,251,96,230,251,134,198
  95. 709 [131] 166,198,240,252,162,64,228,203,208,250,96
  96.